home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr43 / sbdsp2b.zip / TESTDSP.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-27  |  757b  |  22 lines
  1. Program TestDSP;   (* Tests PLAYBACK of Sound... *)
  2. {$M 65520, 0, 655000}
  3. Uses SBDSP, CRT;
  4.  
  5. Begin
  6.   Clrscr;
  7.   (* Initialize SB at ports: 220h, IRQ 5, DMA 1, HIGH DMA 5 *)
  8.   (* Note: If you don't have a SB 16, set the High DMA to 0 *)
  9.   ResetDSP (2, 5, 1, 5);
  10.   WriteLn ('Sound Card DSP Version: ', GetDSPVersion);
  11.   Readkey;
  12.   ResetMixer;   (* Reset the Sound Blaster Pro's Mixer Chip *)
  13.   (* Play the RPD file from DISK  *)
  14.   PlaySoundRPD ('TESTREC.RPD');
  15.   (* Set the Sound Blaster Pro's Internal Mixer to FULL Volume, comment it *)
  16.   (* out if your system crashes on any Sound Blaster lower than a Pro      *)
  17.   SetVocVolume (15, 15);
  18.   Repeat
  19.     (* Do whatever you want in here!    *)
  20.   Until ((KeyPressed) or (not Playing));
  21. End.
  22.